home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue52 / HTML / Code / AppServer / svrCommon.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-10-22  |  1011 b   |  43 lines
  1. unit svrCommon;
  2.  
  3. interface
  4.  
  5. type
  6.   TEventType = (etError, etWarning, etInformation, etAuditSuccess, etAuditFailure);
  7.  
  8. procedure LogEvent(aEventType: TEventType; aEventID: LongWord; aMessage: string);
  9.  
  10. implementation
  11.  
  12. uses
  13.   Windows, SvcMgr;
  14.  
  15. var
  16.   EventLog: TEventLogger;
  17.  
  18. procedure LogEvent(aEventType: TEventType; aEventID: LongWord; aMessage: string);
  19. var
  20.   EventType: DWORD;
  21. begin
  22.   if not Assigned(EventLog) then
  23.     EventLog := TEventLogger.Create('UWReqHandler');
  24.  
  25.   EventType := EVENTLOG_SUCCESS;
  26.   case aEventType of
  27.     etError:
  28.       EventType := EVENTLOG_ERROR_TYPE;
  29.     etWarning:
  30.       EventType := EVENTLOG_WARNING_TYPE;
  31.     etInformation:
  32.       EventType := EVENTLOG_INFORMATION_TYPE;
  33.     etAuditSuccess:
  34.       EventType := EVENTLOG_AUDIT_SUCCESS;
  35.     etAuditFailure:
  36.       EventType := EVENTLOG_AUDIT_FAILURE;
  37.   end;
  38. //  aMessage := aMessage + ' ticks: ' + IntToStr(GetTickCount);
  39.   EventLog.LogMessage(aMessage, EventType, 1001, aEventID);
  40. end;
  41.  
  42. end.
  43.